sub end_lospeed_bustrons(byval x as any ptr)

    curBallspeed = 150f
    for n as integer = 0 to ubound(ball)
        ball(n).v.Normalize
        ball(n).s = curBallspeed
        ball(n).v*= ball(n).s
    next

end sub

sub end_hispeed_bustrons(byval x as any ptr)

    curBallspeed = 150f
    for n as integer = 0 to ubound(ball)
        ball(n).v.Normalize
        ball(n).s = curBallspeed
        ball(n).v*= ball(n).s
    next

end sub

sub end_higrowth(byval x as any ptr )

    growth_rate = *(cast(integer ptr,x))

end sub

sub end_logrowth(byval x as any ptr )

    growth_rate = *(cast(integer ptr,x))

end sub

sub end_shield(byval x as any ptr )
    shield_active = 0
    growth_rate = *(cast(integer ptr,x))
end sub

sub end_sides( byval x as any ptr )
    sides_active = 0
end sub

sub end_gravitron( byval x as any ptr )
    gravitron_active = -2
    growth_rate = *(cast(integer ptr,x))
end sub
